<!-- #include file="../DAL/BD.asp" -->
<!-- #include file="../BLL/DV.asp" -->

<%

    ' Tomo los valores enviados por post
    id_Categoria=Request.Form("Categoria")
    Titulo=Request.Form("Titulo")
    Descripcion=Request.Form("Descripcion")
    Foto=Request.Form("Foto")				
    Precio=Request.Form("Precio")
    Estado=Request.Form("Estado")
    id = obtener_ultimo_id("PRODUCTOS","id_Producto") + 1
    Session.Contents.Remove("Error")

    ' Checkeo el estado
    if Estado = 1 then
        Estado = 1
    else
        Estado = 0
    end if

	'Calculo el digito verificador Horizontal
	DVH=calcularDVH(id & id_Categoria & Titulo & Descripcion & Foto & Estado & Precio )

	'conecto a la bdd
	set conexion=Conectar()
	
	'ejecuto el insert
	EjecutarConsulta "INSERT into PRODUCTOS (id_Categoria,Titulo,Descripcion,Foto,Habilitado,Precio,DVH) VALUES ('" & id_Categoria & "','" & Titulo & "','" & Descripcion & "','" & Foto & "','" & Estado & "','" & Precio & "'," & DVH & ")", conexion
		
	'Calculo y guardo el DVV
	calcularDVV("PRODUCTOS")
			
	'Registro el movimiento en la bitacora
	id_bit=obtener_ultimo_id("BITACORA","id_Bitacora") + 1
	dvh=calcularDVH(id_bit & "Alta de Producto: " & Titulo & "1" & formatdatetime(now(),vbgeneraldate) & session("id_Usuario"))					
	AgregarMovimiento "Alta de Producto: " & Titulo,"1",session("id_Usuario"),dvh
	calcularDVV("BITACORA")		
			
	'desconectar a la bdd
	Desconectar(conexion)

	response.Redirect("productos_detalle.asp?id_Productos=" & id)
%>